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

……

Else

For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue .replace(",","','") & "')")

fdr("税piao状态") = Nothing

fdr("开piao日期") = Nothing

fdr("合同编号") = Nothing

fdr("项目名称") = Nothing

End If

[此贴子已经被作者于2018/8/19 21:19:26编辑过]

下拉窗口，去掉afterload事件代码，DropDownOpened代码改为

Dim str As String = DataTables("开piao明细").GetComboListString("税piao号码","[_Identify] <> " & Tables("开piao明细").Current("_Identify"))

StatusBar.Message2 = str

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("税piao登记","piao据类别|类别代码|税piao号码","税piao号码 not in ('" & str.Replace("|",",").Replace(",","','") & "') And (税piao状态 Is Null or 税piao号码 in ('" & Tables("开piao明细").Current("税piao号码").Replace(",","','") & "'))")

trv.ExpandAll()

Dim s As String = e.Form.DropDownBox.Value

Dim nms As new List(of String)

If s > "" Then

nms.AddRange(s.Split(","))

End If

For Each nd As WinForm.TreeNode In trv.AllNodes

nd.Checked = nms.Contains(nd.text)

第二个需求分配的规则是什么？

Case "税piao号码"

If e.NewValue IsNot Nothing Then

Dim m As Double = dr("金额明细_开piao金额")

For Each fdr As DataRow In DataTables("税piao登记").Select("piao据类别 = '" & dr("piao据类别") & "' And 税piao状态 Is Null")

If dr("税piao号码").Contains(fdr("税piao号码")) Then

fdr("税piao状态") = "已开piao"

fdr("开piao日期") = dr("开piao日期")

fdr("合同编号") = dr("合同编号")

fdr("项目名称") = dr("项目名称")

If m > 100000 Then

fdr("开piao金额") = 100000

m = m-100000

Else

fdr("开piao金额") = m

End If

Else

For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue .replace(",","','") & "')")

fdr("税piao状态") = Nothing

fdr("开piao日期") = Nothing

fdr("合同编号") = Nothing

fdr("项目名称") = Nothing

End If

Case "税piao号码"

If e.NewValue IsNot Nothing Then

Dim m As Double = dr("金额明细_开piao金额")

For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue.replace(",","','") & "')")

fdr("税piao状态") = Nothing

fdr("开piao日期") = Nothing

fdr("合同编号") = Nothing

fdr("项目名称") = Nothing

fdr("开piao金额") = Nothing

For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.NewValue.replace(",","','") & "')")

'If dr("税piao号码").Contains(fdr("税piao号码")) Then

fdr("税piao状态") = "已开piao"

fdr("开piao日期") = dr("开piao日期")

fdr("合同编号") = dr("合同编号")

fdr("项目名称") = dr("项目名称")

If m > 100000 Then

fdr("开piao金额") = 100000

m = m - 100000

Else

fdr("开piao金额") = m

End If

'End If

Else

For Each fdr As DataRow In DataTables("税piao登记").Select("税piao号码 in ( '" & e.OldValue.replace(",","','") & "')")

fdr("税piao状态") = Nothing

fdr("开piao日期") = Nothing

fdr("合同编号") = Nothing

fdr("项目名称") = Nothing

fdr("开piao金额") = Nothing

dr("piao据类别") = Nothing

End If

我测试没有问题。请确认抄对了代码！

这个好办，加个判断就可以了，自己思考一下。不要只会伸手要代码

主题：多值字段问题