- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117080)
-- 发布时间：2018/4/5 21:36:00
-- [求助]填充
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
要把A表和B表填充成C表这样，要怎么弄？
[此贴子已经被作者于2018/4/5 21:40:38编辑过]
-- 发布时间：2018/4/6 9:54:00
--
For Each dp As String In DataTables("表A").getvalues("店铺名称", "店铺名称 is not null")
For Each jj As String In DataTables("表B").getvalues("年份季节", "年份季节 is not null")
Dim ndr As DataRow = DataTables("表C").addnew
ndr("店铺名称") = dp
ndr("年份季节") = jj
Next
Next
-- 发布时间：2018/6/21 12:26:00
--
Dim lmFile As String = ProjectPath & "lm.txt" \'通过更改lm文件的列名
Dim bmFile As String = ProjectPath & "bm.txt" \'通过更改bm文件的表名
Dim lm As String = FileSys.ReadAllText(lmFile)
Dim bm As String = FileSys.ReadAllText(bmFile)
Dim Cols1() As String = {lm}
Dim Cols2() As String = {"科目编码","部门编码","客户编码"}
For Each dr1 As DataRow In DataTables(bm).Select("[会计期间] = 01")
Dim dr2 As DataRow = DataTables("辅助总账测试").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
此主题相关图片如下：qq图片20180621122454.png
上述代码提示kmbm,bmbm,kfbm不属于表fz,但把kmbm,bmbm,kfbm分别定义又是可以的，上述列名不能同时写在一个文本里吗
[此贴子已经被作者于2018/6/21 12:26:47编辑过]
-- 发布时间：2018/6/21 12:29:00
--
改成
Dim Cols1() As String = lm.split(",")
-- 发布时间：2018/6/21 12:56:00
--
哦，追问下，文本里只能是数字和字母吗，用中文好象不行
-- 发布时间：2018/6/21 14:27:00
--
Dim lm As String = FileSys.ReadAllText(lmFile, Encoding.Default)
Dim bm As String = FileSys.ReadAllText(bmFile, Encoding.Default)