按钮代码问题求版主指点！！！！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 按钮代码问题求版主指点！！！！！！

共有2460人关注过本帖树形打印复制链接主题：按钮代码问题求版主指点！！！！！！

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/28 18:31:00 [显示全部帖子]

If DataTables("理论考试表").DataCols(nms(m)).IsBoolean Then
    If Sheet(n,m).Value = 0 Then
        dr(nms(m)) = False
    Else
        dr(nms(m)) = True
    End If
Else If DataTables("理论考试表").DataCols(nms(m)).Expression > "" Then
    '表达式列
Else If DataTables("理论考试表").DataCols(nms(m)).IsNumeric Then
    dr(nms(m)) = val(Sheet(n,m).Value)
Else
    dr(nms(m)) = Sheet(n,m).Value
End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/28 20:27:00 [显示全部帖子]

位置自己调整

For n As Integer = 1 To Sheet.Rows.Count -1
    Dim sfzhm As String = sheet(n,4).Text
    Dim jdpc As String = sheet(n,5).Text
    Dim dr As DataRow = DataTables("理论考试表").Find("身份证号码 = '" & sfzhm & "' And 鉴定批次 = '" & jdpc & "'")

    If dr Is Nothing Then '如果不存在同编号的订单
        dr = DataTables("理论考试表").AddNew()
    End If

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/28 21:04:00 [显示全部帖子]

6楼的红色代码改一下位置啊，不一定是第5列啊。

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/28 21:04:00 [显示全部帖子]

慢的问题，参考今天给你做的例子，查找和赋值分开来做啊。

下一主题 >> << 上一主题

主题：按钮代码问题求版主指点！！！！！！