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

此主题相关图片如下：qq截图20200821211552.jpg

系统数据初始化功能

源代码

Dim str As String

str ="一旦初始化,数据将全部删除,而且不再恢复,请谨慎操作,或者先将本数据库备份!不需要初始化的不要勾选就可了."

Dim Result As DialogResult

Result = MessageBox.Show(str, "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim r1 As Row = Tables("初始化_Table1").Current

If r1.Checked = True Then

If r1("功能模块") = "员工信息"

DataTables("部门信息表").DataRows.Clear

DataTables("学历表").DataRows.Clear

DataTables("职务表").DataRows.Clear

DataTables("员工信息表").DataRows.Clear

End If

现在我想动态的查找比如还是选中的员工信息，删除上面这个表，改成下面这个，通过查找系统数据表，找到这个表，可是这块该怎么调用呢，搞不明白了，请老师赐教

Dim str As String

str ="一旦初始化,数据将全部删除,而且不再恢复,请谨慎操作,或者先将本数据库备份!不需要初始化的不要勾选就可了."

Dim Result As DialogResult

Result = MessageBox.Show(str, "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim r1 As Row = Tables("初始化_Table1").Current

If r1.Checked = True Then

Dim dr As DataRow

dr = DataTables("系统数据表").SQLFind("二级分类 = '" & r1("功能模块") & "'")

If dr IsNot Nothing Then

dr("表名").DataRows.Clear

'DataTables("部门信息表").DataRows.Clear

'DataTables("学历表").DataRows.Clear

'DataTables("职务表").DataRows.Clear

'DataTables("员工信息表").DataRows.Clear

End If

DataTables(dr("表名")).DataRows.Clear

For Each dr As Row In Tables("初始化_Table1").GetCheckedRows

For Each nm As DataRow In DataTables("系统数据表").DataRows

If DataTables("系统数据表").sqlFind("二级分类 = " & dr("功能模块") ) Is Nothing Then

DataTables(nm("表名")).DataRows.Clear

End If

老师，给看一下，我这是要勾选了那个功能模块，然后选择对应功能模块下的表，结果现在是不起作用，全部表都删除了

If DataTables("系统数据表").sqlFind("二级分类 = " & dr("功能模块") ) Is Nothing Then 这句写错了。我呢改成Isnot nothing 后，结果该分类下的一个表数据也删除不了了

，还是得请老师赐教

相关表格数据截图看看

For Each dr As Row In Tables("初始化_Table1").GetCheckedRows

If DataTables("系统数据表").sqlFind("二级分类 = " & dr("功能模块") ) Is Nothing Then

DataTables(dr("表名")).DataRows.Clear

End If

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

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

窗体这个表（二级分类表）是通过 sql语句加载的，想要比如勾选了员工信息、商品信息，那么就从第二张图，系统数据数据表找到勾选的二级分类下，包含的表名依次清空数据，现在呢，现在要么数据表全清，要么一个也不清，搞不明白了，请教老师

For Each dr As Row In Tables("初始化_Table1").GetCheckedRows

For Each nm As DataRow In DataTables("系统数据表").sqlselect("二级分类 = " & dr("功能模块") )

DataTables(nm("表名")).DataRows.Clear

老师这样是一个表也不执行

下面我改成这样，然后看取得表名，结果是把所有表都清了

For Each dr As Row In Tables("初始化_Table1").GetCheckedRows

MessageBox.Show(dr("二级分类"))

For Each nm As DataRow In DataTables("系统数据表").DataRows

If DataTables("系统数据表").sqlselect("二级分类 = '" & dr("二级分类") & "'" ) IsNot Nothing Then

MessageBox.Show(nm("表名"))

DataTables(nm("表名")).DataRows.Clear

End If

For Each dr As Row In Tables("初始化_Table1").GetCheckedRows

For Each nm As DataRow In DataTables("系统数据表").sqlselect("二级分类 = '" & dr("二级分类") & "'")

DataTables(nm("表名")).DataRows.Clear

主题：系统数据初始化