共77 条记录, 每页显示 10 条, 页签:
[1][2][3][4]
[5]
[6][7][8]
41楼
有点蓝 发表于：2023/10/27 16:29:00
目录树绑定的是dt，dt是统计表，统计表没有这些列
42楼
jhxb8821 发表于：2023/10/27 16:42:00
43楼
jhxb8821 发表于：2024/4/11 13:05:00
'先筛选数据，采用复选框
Dim v As String = e.Form.Controls("CheckedComboBox1").text
Tables("历次汇总分析").filter = "乡镇街道 in ('" & v.replace(",", "','") & "')"
'然后，将筛选出来的数据全部删除
Dim rs As List(Of Row) = Tables("历次汇总分析").Rows
If rs.Count = 0 Then
messageBox.Show("没有可操作的记录?")
Else
Dim Result As DialogResult = MessageBox.Show("是否删除选定的数据?", "提示", MessageBoxButtons.YesHo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For Each r As Row In rs
r.Delete()
Next
messageBox.Show("删除成功!")
End If
End If
老师，看看我这个代码怎么删除不了
44楼
有点蓝 发表于：2024/4/11 13:41:00
45楼
jhxb8821 发表于：2024/4/11 14:09:00
'先筛选数据，采用复选框
Dim v As String = e.Form.Controls("CheckedComboBox1").text
Tables("历次汇总分析").filter = "乡镇街道 in ('" & v.replace(",", "','") & "')"
'然后，将筛选出来的数据全部删除
Dim rs As List(Of Row) = Tables("历次汇总分析").Rows
If rs.Count = 0 Then
messageBox.Show("没有可操作的记录?")
Else
Dim Result As DialogResult = MessageBox.Show("是否删除选定的数据?", "提示", MessageBoxButtons.YesHo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
With CurrentTable
For i As Integer = .BottomPosition To .TopPosition Step - 1
.Rows(i).Delete()
Next
End With
messageBox.Show("删除成功!")
End If
End If
老师，请修改一下代码
46楼
有点蓝 发表于：2024/4/11 14:12:00
For i As Integer = .Rows.count - 1 To 0 Step - 1
47楼
jhxb8821 发表于：2024/4/11 14:22:00
'先筛选数据，采用复选框
Dim v As String = e.Form.Controls("CheckedComboBox1").text
Tables("历次汇总分析").filter = "乡镇街道 in ('" & v.replace(",", "','") & "')"
'然后，将筛选出来的数据全部删除
Dim rs As List(Of Row) = Tables("历次汇总分析").Rows
If rs.Count = 0 Then
MessageBox.Show("没有可操作的记录?")
Else
Dim Result As DialogResult = MessageBox.Show("是否删除选定的数据?", "提示", MessageBoxButtons.YesHo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
With CurrentTable
For i As Integer = .Rows.Count - 1 To 0 Step - 1
.Rows(i).Delete()
Next
End With
MessageBox.Show("删除成功!")
End If
End If
老师，出现提示“未知编译错误”，是不是第三句代码有问题？
48楼
有点蓝 发表于：2024/4/11 14:24:00
Tables("历次汇总分析").filter = "乡镇街道 in ('" & v.replace(",", "','") & "')"
'然后，将筛选出来的数据全部删除
If Tables("历次汇总分析").Rows.Count = 0 Then
MessageBox.Show("没有可操作的记录?")
Else
49楼
jhxb8821 发表于：2024/4/11 14:33:00
'先筛选数据，采用复选框
Dim v As String = e.Form.Controls("CheckedComboBox1").text
Tables("历次汇总分析").filter = "乡镇街道 in ('" & v.replace(",", "','") & "')"
'然后，将筛选出来的数据全部删除
If Tables("历次汇总分析").Rows.Count = 0 Then
MessageBox.Show("没有可操作的记录?")
Else
Dim Result As DialogResult = MessageBox.Show("是否删除选定的数据?", "提示", MessageBoxButtons.YesHo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
With CurrentTable
For i As Integer = .Rows.Count - 1 To 0 Step - 1
.Rows(i).Delete()
Next
End With
MessageBox.Show("删除成功!")
End If
End If
老师，怎么还是出现提示“未知编译错误”？
50楼
有点蓝 发表于：2024/4/11 14:36:00
项目文件所在的整个路径，以及项目名称不要有括号等特殊符。重新打开项目，就可以提示正确的错误提示了
共77 条记录, 每页显示 10 条, 页签:
[1][2][3][4]
[5]
[6][7][8]