专家坐堂-[求助]重复删除代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]重复删除代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54162)

--  作者：荟美绘姿
--  发布时间：2014/7/23 8:39:00
--  [求助]重复删除代码

我要在下面的代码中再加上一个对另外一个表进行重复删除的代码,请指教该如何写,写在哪里?

谢谢!

If e.Form.Controls("TextBox1").Text = "" Then
    MessageBox.Show("编号不能为空")
    Return
End If

If e.Form.Controls("TextBox2").Text = "" Then
    MessageBox.Show("当事人名称不能为空")
    Return
End If

If e.Form.Controls("TextBox4").Text = "" Then
    MessageBox.Show("地址不能为空")
    Return
End If

If e.Form.Controls("TextBox5").Text = "" Then
    MessageBox.Show("联系电话不能为空")
    Return
End If

If e.Form.Controls("TextBox6").Text = "" Then
    MessageBox.Show("邮政编码不能为空")
    Return
End If

If e.Form.Controls("TextBox3").Text = "" Then
    MessageBox.Show("车牌号码不能为空")
    Return
End If

If e.Form.Controls("ComboBox1").Text = "" Then
    MessageBox.Show("车牌颜色不能为空")
    Return
End If

If e.Form.Controls("ComboBox2").Text = "" Then
    MessageBox.Show("案发地点不能为空")
    Return
End If

If e.Form.Controls("DateTimePicker1").Text = "" Then
    MessageBox.Show("案发时间不能为空")
    Return
End If

If e.Form.Controls("ComboBox3").Text = "" Then
    MessageBox.Show("违法行为不能为空")
    Return
End If

If e.Form.Controls("ComboBox4").Text = "" Then
    MessageBox.Show("案件状态不能为空")
    Return
End If

Tables("车辆违章表").current("编号")=e.Form.Controls("TextBox1").text
Tables("车辆违章表").current("单位基本情况_单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆违章表").current("单位基本情况_地址")=e.Form.Controls("TextBox4").text
Tables("车辆违章表").current("单位基本情况_联系电话")=e.Form.Controls("TextBox5").text
Tables("车辆违章表").current("单位基本情况_邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆违章表").current("车辆基本情况_车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆违章表").current("车辆基本情况_车牌颜色")=e.Form.Controls("ComboBox1").text
Tables("车辆违章表").current("违章基本情况_违章地点")=e.Form.Controls("ComboBox2").text
Tables("车辆违章表").current("违章基本情况_违章时间")=e.Form.Controls("DateTimePicker1").text
Tables("车辆违章表").current("违章基本情况_违章行为")=e.Form.Controls("ComboBox3").text
Tables("车辆违章表").current("案件状态")=e.Form.Controls("ComboBox4").text
Tables("车辆违章表").Current.Save()
Tables("车辆违章表").Current.Locked = True

Tables("单位表").AddNew()
Tables("车辆表").AddNew()
Tables("单位表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("单位表").current("地址")=e.Form.Controls("TextBox4").text
Tables("单位表").current("联系电话")=e.Form.Controls("TextBox5").text
Tables("单位表").current("邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆表").current("车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆表").current("车牌颜色")=e.Form.Controls("ComboBox1").text
Dim i As Integer
For i = DataTables("车辆表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("车辆表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆表").Find("车牌号码=\'" & dr("车牌号码") & "\' and 车牌颜色=\'" & dr("车牌颜色") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
Tables("车辆表").Current.Save()
Tables("车辆表").Current.Locked = True
Tables("单位表").Current.Save()
Tables("单位表").Current.Locked = True

--  作者：荟美绘姿
--  发布时间：2014/7/23 8:46:00
--

我顶一下下,快快帮我一下,谢谢

--  作者：Bin
--  发布时间：2014/7/23 8:52:00
--
For i as integer = DataTables("车辆表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("车辆表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆表").Find("车牌号码=\'" & dr("车牌号码") & "\' and 车牌颜色=\'" & dr("车牌颜色") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next

--  作者：荟美绘姿
--  发布时间：2014/7/23 8:56:00
--

请你帮我写完整一点,谢谢

--  作者：Bin
--  发布时间：2014/7/23 8:59:00
--
就是完整的代码了啊把你原来的替换成这个即可

你的处理方式没问题.

--  作者：荟美绘姿
--  发布时间：2014/7/23 9:01:00
--

If e.Form.Controls("TextBox1").Text = "" Then
    MessageBox.Show("编号不能为空")
    Return
End If

If e.Form.Controls("TextBox2").Text = "" Then
    MessageBox.Show("当事人名称不能为空")
    Return
End If

If e.Form.Controls("TextBox4").Text = "" Then
    MessageBox.Show("地址不能为空")
    Return
End If

If e.Form.Controls("TextBox5").Text = "" Then
    MessageBox.Show("联系电话不能为空")
    Return
End If

If e.Form.Controls("TextBox6").Text = "" Then
    MessageBox.Show("邮政编码不能为空")
    Return
End If

If e.Form.Controls("TextBox3").Text = "" Then
    MessageBox.Show("车牌号码不能为空")
    Return
End If

If e.Form.Controls("ComboBox1").Text = "" Then
    MessageBox.Show("车牌颜色不能为空")
    Return
End If

If e.Form.Controls("ComboBox2").Text = "" Then
    MessageBox.Show("案发地点不能为空")
    Return
End If

If e.Form.Controls("DateTimePicker1").Text = "" Then
    MessageBox.Show("案发时间不能为空")
    Return
End If

If e.Form.Controls("ComboBox3").Text = "" Then
    MessageBox.Show("违法行为不能为空")
    Return
End If

If e.Form.Controls("ComboBox4").Text = "" Then
    MessageBox.Show("案件状态不能为空")
    Return
End If

Tables("车辆违章表").current("编号")=e.Form.Controls("TextBox1").text
Tables("车辆违章表").current("单位基本情况_单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆违章表").current("单位基本情况_地址")=e.Form.Controls("TextBox4").text
Tables("车辆违章表").current("单位基本情况_联系电话")=e.Form.Controls("TextBox5").text
Tables("车辆违章表").current("单位基本情况_邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆违章表").current("车辆基本情况_车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆违章表").current("车辆基本情况_车牌颜色")=e.Form.Controls("ComboBox1").text
Tables("车辆违章表").current("违章基本情况_违章地点")=e.Form.Controls("ComboBox2").text
Tables("车辆违章表").current("违章基本情况_违章时间")=e.Form.Controls("DateTimePicker1").text
Tables("车辆违章表").current("违章基本情况_违章行为")=e.Form.Controls("ComboBox3").text
Tables("车辆违章表").current("案件状态")=e.Form.Controls("ComboBox4").text
Tables("车辆违章表").Current.Save()
Tables("车辆违章表").Current.Locked = True

Tables("单位表").AddNew()
Tables("车辆表").AddNew()
Tables("单位表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("单位表").current("地址")=e.Form.Controls("TextBox4").text
Tables("单位表").current("联系电话")=e.Form.Controls("TextBox5").text
Tables("单位表").current("邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆表").current("车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆表").current("车牌颜色")=e.Form.Controls("ComboBox1").text
Dim i As Integer
For i = DataTables("车辆表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("车辆表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆表").Find("车牌号码=\'" & dr("车牌号码") & "\' and 车牌颜色=\'" & dr("车牌颜色") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
For i = DataTables("单位表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("单位表").DataRows(i)
    Dim dr2 As DataRow = DataTables("单位表").Find("单位名称=\'" & dr("单位名称") & "\' and 地址=\'" & dr("地址") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
Tables("车辆表").Current.Save()
Tables("车辆表").Current.Locked = True
Tables("单位表").Current.Save()

帮我看一下下,

Tables("单位表").Current.Locked = True

--  作者：Bin
--  发布时间：2014/7/23 9:06:00
--
什么意思?不明白.请描述清楚,并且上例子.

--  作者：荟美绘姿
--  发布时间：2014/7/23 10:00:00
--

我这段代码是写在一个登记窗口的保存控件里的

当按下保存按钮时将相应的数据保存到"车辆违章表"、“单位表”和“车辆表”中，并保存了“车辆违章表”，接着对“单位表”和“车辆表”中的重复数据分别进行删除，最后保存锁定“单位表”和“车辆表”。

If e.Form.Controls("TextBox1").Text = "" Then
    MessageBox.Show("编号不能为空")
    Return
End If

If e.Form.Controls("TextBox2").Text = "" Then
    MessageBox.Show("当事人名称不能为空")
    Return
End If

If e.Form.Controls("TextBox4").Text = "" Then
    MessageBox.Show("地址不能为空")
    Return
End If

If e.Form.Controls("TextBox5").Text = "" Then
    MessageBox.Show("联系电话不能为空")
    Return
End If

If e.Form.Controls("TextBox6").Text = "" Then
    MessageBox.Show("邮政编码不能为空")
    Return
End If

If e.Form.Controls("TextBox3").Text = "" Then
    MessageBox.Show("车牌号码不能为空")
    Return
End If

If e.Form.Controls("ComboBox1").Text = "" Then
    MessageBox.Show("车牌颜色不能为空")
    Return
End If

If e.Form.Controls("ComboBox2").Text = "" Then
    MessageBox.Show("案发地点不能为空")
    Return
End If

If e.Form.Controls("DateTimePicker1").Text = "" Then
    MessageBox.Show("案发时间不能为空")
    Return
End If

If e.Form.Controls("ComboBox3").Text = "" Then
    MessageBox.Show("违法行为不能为空")
    Return
End If

If e.Form.Controls("ComboBox4").Text = "" Then
    MessageBox.Show("案件状态不能为空")
    Return
End If

Tables("车辆违章表").current("编号")=e.Form.Controls("TextBox1").text
Tables("车辆违章表").current("单位基本情况_单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆违章表").current("单位基本情况_地址")=e.Form.Controls("TextBox4").text
Tables("车辆违章表").current("单位基本情况_联系电话")=e.Form.Controls("TextBox5").text
Tables("车辆违章表").current("单位基本情况_邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆违章表").current("车辆基本情况_车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆违章表").current("车辆基本情况_车牌颜色")=e.Form.Controls("ComboBox1").text
Tables("车辆违章表").current("违章基本情况_违章地点")=e.Form.Controls("ComboBox2").text
Tables("车辆违章表").current("违章基本情况_违章时间")=e.Form.Controls("DateTimePicker1").text
Tables("车辆违章表").current("违章基本情况_违章行为")=e.Form.Controls("ComboBox3").text
Tables("车辆违章表").current("案件状态")=e.Form.Controls("ComboBox4").text
Tables("车辆违章表").Current.Save()
Tables("车辆违章表").Current.Locked = True

Tables("单位表").AddNew()
Tables("车辆表").AddNew()
Tables("单位表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("车辆表").current("单位名称")=e.Form.Controls("TextBox2").text
Tables("单位表").current("地址")=e.Form.Controls("TextBox4").text
Tables("单位表").current("联系电话")=e.Form.Controls("TextBox5").text
Tables("单位表").current("邮政编码")=e.Form.Controls("TextBox6").text
Tables("车辆表").current("车牌号码")=e.Form.Controls("TextBox3").text
Tables("车辆表").current("车牌颜色")=e.Form.Controls("ComboBox1").text
Dim i As Integer
For i = DataTables("车辆表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("车辆表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆表").Find("车牌号码=\'" & dr("车牌号码") & "\' and 车牌颜色=\'" & dr("车牌颜色") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
For i = DataTables("单位表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("单位表").DataRows(i)
    Dim dr2 As DataRow = DataTables("单位表").Find("单位名称=\'" & dr("单位名称") & "\' and 地址=\'" & dr("地址") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next
Tables("车辆表").Current.Save()
Tables("车辆表").Current.Locked = True
Tables("单位表").Current.Save()
Tables("单位表").Current.Locked = True

此主题相关图片如下：捕获.png

--  作者：Bin
--  发布时间：2014/7/23 10:09:00
--
上例子吧