- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 初始化数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125866)
-- 发布时间：2018/10/8 22:25:00
-- 初始化数据
此主题相关图片如下：111.png
我要在自己的项目中做这个功能，怎么能看到系统里自带的这个功能窗体的源码及这个是怎么做的
-- 发布时间：2018/10/8 22:41:00
--
看不到的，初始化就是清空表数据而已，下面方法任选一个
DataTables("订单").DataRows.Clear()
DataTables("订单").SQLDeleteFor("")
-- 发布时间：2018/10/9 0:08:00
--
此主题相关图片如下：222.png
我要，昨天选中的表复制到右边的表里
Dim cl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
If cl.value <> "" Then
For Each c As String In cl.value.split(",")
DataTables(c).DataRows.AddNew("数据初始化表")
Next
End If
可是这个错了，出来不了结果，请老师帮忙一下
-- 发布时间：2018/10/9 8:38:00
--
Dim cl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
If cl.value <> "" Then
For Each c As String In cl.value.split(",")
Dim ndr = DataTables("数据初始化表").AddNew
ndr("表名") = c
Next
End If