Chinaunix首页 | 论坛 | 博客
  • 博客访问: 34027
  • 博文数量: 54
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 490
  • 用 户 组: 普通用户
  • 注册时间: 2011-01-23 14:08
文章分类

全部博文(54)

文章存档

2024年(10)

2023年(22)

2022年(22)

我的朋友

发布时间:2024-10-16 15:44:09

'''1、序号:公用模块Public Sub Autoxh(Form As Form, Grid As MSHFlexGrid)    Grid.TextMatrix(0, 0) = "xh"   '''加序号    Dim a As Long    'For a = 1 To rs.RecordCount            ' 直接写语句时,用此得序号    For a =.........【阅读全文】

阅读(30) | 评论(0) | 转发(0)

发布时间:2024-08-20 10:54:08

If Dir(App.Path & "\zkpara.txt", vbHidden Or vbReadOnly Or vbNormal Or vbSystem) <> "" Then  '''判断zkpara文件是否存在,属性为隐藏 只读 正常 系统    ''''读取zk文件    Dim fso As Object, ts As Object    txt_lowzk = ""    Set fso = CreateObject("scriptin.........【阅读全文】

阅读(518) | 评论(0) | 转发(0)

发布时间:2024-06-21 14:36:05

On Error Resume NextIf MSHFlexGrid1.TextMatrix(1, 1) = "" Then    MsgBox "无记录可导出", 0 + vbExclamation, "提示"    Exit SubElse    Dim strTemp As String    Dim i As Integer, j As Integer    strTemp = ""    For i = 1 To MSHFlex.........【阅读全文】

阅读(155) | 评论(0) | 转发(0)

发布时间:2024-06-12 11:35:41

https://blog.csdn.net/hu5566798/article/details/114699369......【阅读全文】

阅读(689) | 评论(0) | 转发(0)

发布时间:2024-05-19 14:06:41

32位系统:C:\Windows\system32\odbcad32.exeC:\Windows\SysWOW64\odbcad32.exe......【阅读全文】

阅读(123) | 评论(0) | 转发(0)
给主人留下些什么吧!~~
留言热议
请登录后留言。

登录 注册