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

此主题相关图片如下：0.png

此主题相关图片如下：2.png

此主题相关图片如下：1.png

Dim cmb1 As WinForm.ComboBox = e.Form.Controls( "产品型号")

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("工序号")

Dim cmb3 As WinForm.ComboBox = e.Form.Controls("领取人")

cmb1.ComboList = DataTables("工艺卡片发放记录").GetComboListString("产品型号")

cmb2.ComboList = DataTables("工艺卡片发放记录").GetComboListString("工序号")

cmb3.ComboList = DataTables("工艺卡片发放记录").GetComboListString("第一份_领取人")

如果想拾取三列代码如何修改呢

如果我想搜索第一份_领取人第二份_领取人第三份_领取人这三列代码应该怎么修改一下呢

Dim cs() As String = {"第一份_领取人", "第二份_领取人", "第三份_领取人"}

Dim ls As new List(of String)

For Each dr As DataRow In DataTables("工艺卡片发放记录").Select("")

For Each c As String In cs

If dr(c) <> Nothing AndAlso ls.Contains(dr(c)) = False Then

ls.add(dr(c))

End If

Dim str As String = String.Join("|", ls.ToArray)

Dim cmb1 As WinForm.ComboBox = e.Form.Controls( "产品型号")

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("工序号")

Dim cmb3 As WinForm.ComboBox = e.Form.Controls("第一份_领取人")

cmb1.ComboList = DataTables("工艺卡片发放记录").GetComboListString("产品型号")

cmb2.ComboList = DataTables("工艺卡片发放记录").GetComboListString("工序号")

cmb3 .ComboList = "str()"

试了一下参考代码可以显示所有的姓名但是我改就改不出来了老师能否帮忙改正一下还有学习FOXtable 两个月了现在看别人代码能看懂但是要是写的话答题思路知道但就是写完以后反反复复会出现错误这是怎么回事呢还望指教

此主题相关图片如下：1.png

改完了以后也搜索不到是不是搜索按钮的代码也需要改一下呢

Dim nms() As String = {"产品型号","第一份_领取人","工序号", "领取日期" ,"返回日期"}

Dim sps() As String = {"'","'","'",",",",","#","#"}

Dim bjf() As String = {"=","=","=","=","=",">=","<="}

Dim fds() As String = {"产品型号","第一份_领取人","工序号","日期","日期"}

Dim Filter As String

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

If e.Form.Controls(nms(i)).value IsNot Nothing Then

If filter > "" Then

filter = filter & " and "

End If

filter =filter & fds(i) & bjf(i) & sps(i) & e.Form.Controls(nms(i)).value & sps(i)

End If

If e.Form.Controls( "已还").checked = True

If filter > "" Then

filter = filter & "and "

End If

If e.Form.Controls( "已还").checked = True

If filter > "" Then

filter = filter & " and "

End If

filter=filter & " 已还=true"

End If

If e.Form.Controls( "未还").checked = True

If filter > "" Then

filter = filter & " and "

End If

filter=filter & " (未还 =false or 未还 is null)"

End If

Tables("工艺卡片发放记录").filter = filter

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东隆盛机加管理平台3.table

主题：代码报错