如何用datagrid编辑文本文件,并保存到另一个数据文件
如何用datagrid编辑文本文件,并保存到另一个数据文件 --------------------编程问答-------------------- 是要保存到数据库中还是保存到其它文件中?保存到数据库中的话用ADO就可以,保存到XLS或是其它文件的话网上都有代码的,你搜一下就可以了 --------------------编程问答-------------------- 你的问题太含糊 不解 --------------------编程问答-------------------- 将文本文件调入datagrid中编辑,再保存进另一个文本文件中 --------------------编程问答--------------------你的文件什么格式?问什么要用datagrid编辑
晕,不能说明白些吗?问一句说一句?
这表达 --------------------编程问答-------------------- 文件是txt格式,vb中还有其他控件能编辑txt文件吗? --------------------编程问答-------------------- 参考
Visual Basic文件操作全攻略 --------------------编程问答-------------------- 我编的是商品软件,需要有好的界面,用哪一个控件编辑好呢? --------------------编程问答-------------------- 还不会爬就想跑?连基础都没有就编商品软件? --------------------编程问答-------------------- textbox
richtextbox --------------------编程问答-------------------- 要用表格呢 就用vsflexgrid 文字处理呢 就用textbox、richtextbox --------------------编程问答-------------------- 我基本能明白楼主的意思
想用DataGride做表格编辑
恰巧我前段时间刚弄过差不多的东西
Dim oRs As New Recordset--------------------编程问答-------------------- 上面的代码是假设 文本文件里有2个字段 用vbtab分隔
Dim sLine As String
'保存
Private Sub Command1_Click()
oRs.MoveFirst
Open "l:\tmp1.txt" For Output As #1
Print #1, oRs.GetString(adClipString, , vbTab, vbCrLf, "")
Close #1
End Sub
'添加
Private Sub Command2_Click()
oRs.AddNew
End Sub
'删除
Private Sub Command3_Click()
oRs.Delete adAffectCurrent
End Sub
'修改
Private Sub DataGrid1_Change()
If DataGrid1.Text = "" Then DataGrid1.Text = "null"
End Sub
Private Sub Form_Load()
oRs.Fields.Append "fd1", adBSTR
oRs.Fields.Append "fd2", adBSTR
oRs.Open
loadtxt
End Sub
'读入
Private Function loadtxt()
Open "l:\tmp.txt" For Input As #1
While Not EOF(1)
oRs.AddNew
Line Input #1, sLine
oRs!fd1 = Split(sLine, vbTab)(0)
oRs!fd2 = Split(sLine, vbTab)(1)
Wend
Close #1
Set DataGrid1.DataSource = oRs
End Function
Private Sub Form_Unload(Cancel As Integer)
Set oRs = Nothing
End Sub
补充:VB , 基础类