字符转换问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符转换问题

共有3380人关注过本帖树形打印复制链接主题：字符转换问题

lin98

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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

字符转换问题 发帖心情

Post By：2023/6/21 12:47:00 [显示全部帖子]

Select Case e.DataCol.name

Case "编号", "数量", "日期"

Dim bh As String

Dim sl As Double

Dim rx As Date

If e.DataCol.Name = "编号" Then

bh = e.NewValue

sl = e.DataRow("数量")

rx = e.DataRow("日期")

Else

sl = e.NewValue

rx = e.DataRow("日期")

bh = e.DataRow("编号")

End If

If bh > "" AndAlso sl > "" AndAlso rx > ""Then

Dim dr As DataRow = e.DataRow

If e.DataTable.Find("编号 = '" & bh & "' And 数量 = '" & sl & "'And 日期 = '" & rx & "'") IsNot Nothing Then

MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

e.Cancel = True

End If

End Select

上面代码报错，提示字符转换问题，在哪里转换，如何转换？谢谢

lin98

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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/6/21 14:35:00 [显示全部帖子]

改了，没报错，但无法实现，禁止重复值录入，如何解决？

'DataColChanging

导入

Dim dr3 As DataRow = Tables("表A").Current.DataRow

For Each r As Row In Tables("导入窗口_表A").GetCheckedRows '

Dim nma() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim nmb() As String = {"编号", "型号", "规格", "数量", "日期"} '

Dim dr As Row = Tables("表B").AddNew '

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

End If

[此贴子已经被作者于2023/6/21 16:32:46编辑过]

lin98

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

加好友

发短信

等级：六尾狐帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00

Post By：2023/6/21 15:36:00 [显示全部帖子]

导入重复没导入，也没提示，如何实现导入时发现重复，重复i 导入,并提示有已有存在相同产品？

If DataTables("表B").Find("编号 = '" & r("编号") & "' And 数量 = " & r("数量") & " And 日期 = #" & r("日期") & "#") Is Nothing Then

Dim dr As Row = Tables("表B").AddNew '

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = r(nma(i))

End If

MessageBox.Show("已经存在相同型号和规格的行!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information) 加在这里不对，一直提示

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

主题：字符转换问题