共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求助
1楼
timber83 发表于：2024/12/19 9:38:00有三张表
分别是水果的种类、产地、颜色，
能不能生成汇总表，该如何设置。
[此贴子已经被作者于2024/12/19 9:38:47编辑过]
2楼
timber83 发表于：2024/12/19 9:39:00压缩包
3楼
timber83 发表于：2024/12/19 9:41:0022
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表单自动合并.zip |
4楼
y2287958 发表于：2024/12/19 10:07:00For Each dr As DataRow In DataTables("产地").Select("水果id<>'' and 水果id is not null")
Dim dr1 As DataRow = DataTables("颜色").Find("水果产地id='" & dr("水果产地id") & "' and 水果产地='" & dr("产地") & "'")
If dr1 IsNot Nothing Then
For Each 颜色 As String In dr1("水果颜色").Split("|")
Dim adr As DataRow = DataTables("汇总").AddNew
adr("水果id") = dr("水果id")
adr("水果") = dr("水果")
adr("水果产地id") = dr("水果产地id")
adr("水果产地") = dr("产地")
adr("水果颜色") = 颜色
Next
End If
Next
5楼
有点蓝 发表于：2024/12/19 10:16:006楼
timber83 发表于：2024/12/19 10:19:00这段代码需要设置哪个表哪个事件？
7楼
有点蓝 发表于：2024/12/19 10:40:00看5楼
共7 条记录, 每页显示 10 条, 页签:
[1]