打印！

哈哈，这个很简单的引用 Microsoft ActiveX Data Objects 2.8 Library或者加入microsoft ado data control定义数据库连接Dim Cnn As New ADODB.Connection定义操作记录Dim Res As New ADODB.Recordset开始使用If Res.State = 1 Then Res.CloseRes.CursorLocation = adUseClientRes.Open "SELECT * From 发票表", Cnn, adOpenDynamic, adLockReadOnly删除用res.Delete 添加用res.AddNew res.Fields("序号") = Trim(Res.Fields("序号")) ... res.Update更新用Res.Update "序号", 111列：'写入产品信息Sub WriteFP()'On Error Resume NextDim SyBaseRes As New ADODB.RecordsetPB.value = 0Res.Open "SELECT Count(*) From ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnlyText2.Text = "当前共 " & Val(Res.Fields(0)) & "条数据"PB.Max = Val(Res.Fields(0))If Res.State = 1 Then Res.CloseRes.Open "SELECT ICSaleEntry.FDetailID AS 序号,ICSaleEntry.FInterID AS 物料编号, t_Item.FName AS 产品名称,ICSaleEntry.FAuxPrice AS 单价, ICSaleEntry.FAuxQty AS 数量,ICSaleEntry.FAmount AS 原币, ICSaleEntry.FStdAmount AS 本币,t_MeasureUnit.FName AS 单位 FROM ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnlyDo While Not Res.EOF If SyBaseRes.State = 1 Then SyBaseRes.Close SyBaseRes.Open "select * from 物料表 where 序号='" & Res.Fields("序号") & "'", Cnn, adOpenDynamic, adLockOptimistic If SyBaseRes.EOF Then Text2.Text = Text2.Text + vbCrLf + "正在添加: " & Trim(Res.Fields("序号")) SyBaseRes.AddNew SyBaseRes.Fields("序号") = Trim(Res.Fields("序号")) SyBaseRes.Fields("产品编号") = Trim(Res.Fields("物料编号")) SyBaseRes.Fields("产品名称") = Trim(Res.Fields("产品名称")) SyBaseRes.Fields("单价") = Trim(Res.Fields("单价")) SyBaseRes.Fields("数量") = Trim(Res.Fields("数量")) SyBaseRes.Fields("原币") = Trim(Res.Fields("原币")) SyBaseRes.Fields("本币") = Trim(Res.Fields("本币")) SyBaseRes.Fields("单位") = Trim(Res.Fields("单位")) SyBaseRes.Fields("数据库名") = Trim(Text1.Text) SyBaseRes.Update Else Text2.Text = Text2.Text + vbCrLf + "正在更新: " & Trim(Res.Fields("序号")) SyBaseRes.Update "序号", Trim(Res.Fields("序号")) SyBaseRes.Update "产品编号", Trim(Res.Fields("物料编号")) SyBaseRes.Update "产品名称", Trim(Res.Fields("产品名称")) SyBaseRes.Update "单价", Trim(Res.Fields("单价")) SyBaseRes.Update "数量", Trim(Res.Fields("数量")) SyBaseRes.Update "原币", Trim(Res.Fields("原币")) SyBaseRes.Update "本币", Trim(Res.Fields("本币")) SyBaseRes.Update "单位", Trim(Res.Fields("单位")) SyBaseRes.Update "数据库名", Trim(Text1.Text) End If PB.value = PB.value + 1 Res.MoveNext DoEventsLoopIf SyBaseRes.State = 1 Then SyBaseRes.CloseSet SyBaseRes = NothingEnd Sub