DATATABLE.CLEAR问题

lnwuyaowei 2004-10-11 12:49:49
DataSet11.conlog.Rows.Clear()
DataSet11.conlog.AcceptChanges()
'MsgBox(DataSet11.conlog.Rows.Count.ToString)
'开始日志的目录
Dim i As Integer
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
'定义目录
Dim di As New DirectoryInfo(TextBox3.Text + "\" + CheckedListBox1.CheckedItems(i))
Dim fi As FileInfo() = di.GetFiles()

Dim ii As Integer
Dim ls_filename As String '日志文件名称
For ii = 0 To UBound(fi) '处理同一目录下的不同文件
'取得每个要处理的文件名
ls_filename = TextBox3.Text + "\" + di.Name.ToString + "\" + fi(ii).Name.ToString

Dim fs As FileStream = New FileStream(ls_filename, FileMode.Open)
Dim textread As StreamReader = New StreamReader(fs, System.Text.Encoding.Default)
Dim textreadstring As String
Dim myarray As String()
'处理每个文件
While True
textreadstring = textread.ReadLine
If textreadstring = Nothing Then
Exit While
End If
myarray = Split(textreadstring, " ")
Dim iii As Integer
Dim row As DataRow
row = DataSet11.conlog.NewRow()
'处理每个记录
For iii = 0 To UBound(myarray)
row.Item(iii + 1) = myarray(iii)
Next
DataSet11.conlog.AddconlogRow(row)
End While
fs.Close()

Next
'MsgBox(DataSet11.conlog.Rows.Count.ToString)
Next
Exit Sub

DATATABLE调用CLEAR功能后,表中的内容的确是没有了。但是当再次加入行的时候,行号并不是从0开始(数据库为ACCESS数据库,行号为自动增加类型)。请问是怎么回事,有什么办法解决?
...全文
67 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
BearRui 2004-10-11
  • 打赏
  • 举报
回复
这不是代码问题,而是ACCESS数据库本来就是这样的。

你可以在你的access数据库中建立一个查询,输入:


ALTER TABLE yourtablename
ALTER COLUMN id COUNTER (0, 1)

和执行一下这个查询就重新从0开始了!!!

16,552

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧