问题1.我用建立对象的方式连接数据库(access),记录集通过datagrid显示出来,但怎样让datagrid在添加、删除或修改记录时随时更新,比如我选择了修改条件后,datagrid左侧的箭头(=》)就自动移到要被修改记录的左侧呢?我的修改记录代码如下:
Dim mrc As New ADODB.Recordset
Dim flag As Integer
  On Error Resume Next
  txtsql = "select * from zb1"
  Set mrc = exesql(txtsql)‘调用函数
  If mrc.RecordCount > 0 Then
     flag = 0
     mrc.MoveFirst
     Do While Not mrc.EOF()  
        If Str$(mrc.Fields("日期时间")) = Trim(Str$(moday.Value)) And mrc.Fields("值别") = Trim(cbo1.Text) Then
           Exit Sub
        Else
           mrc.MoveNext
        End If
     Loop
     flag = 1
     If flag Then
        answer = MsgBox("历史记录中没有找到要修改的对象,请核对设置条件!", 32, "信息提示")
     End If
  Else
     answer = MsgBox("原始表中无历史记录,无对象可修改!", 32, "信息提示")
  End If
  mrc.Requery
 mrc.update
  Set mrc = Nothing问题2.怎样将datagrid控件中的数据记录集分页打印出来,分页具体代码如何写呢?问题3.别人写好的控件如何在VB中使用,如何添加进来直接用呢?问题4.将access数据库和mschart控件连接后,用立方体显示数据,如何设置显示出的初始颜色呢?问题5.当第一次在‘甲窗口’中用mschart立方体显示数据后,在关闭此‘甲窗口’时如何断开mschart控件与数据库的连接,以免在第二次以后再打开此窗口时依然显示过去数据的立方体呢?问题6.如何将窗口中多个控件的背景融为一体(设整个窗体有一个大的背景)。比如窗体中的控件包括:命令按钮、选择框、标签框、框架、列表框、组合框、单选钮和滚动条等等。恳请各位楼主帮我解答,THANKS!

解决方案 »

  1.   

    问题1 还没看懂
    问题2 查一下csdn上打印的代码
    问题3 好像要先注册一下
    问题4 我一般不改变系统原先设置的颜色
    问题5 在qq上跟你说过了,不知道你弄好了没
    问题6 没有必要融为一体,基本上你所说的这些界面不会设置什么大的背景
      

  2.   

    问题1   recordset.find  條件
          if recordset.eof then .....问题2 我用的是自已寫的打印控件,你也可以用VBA
    问题3 要看一下是公有控件還是私有控件
          公有控件,要添加引用
          私有控件,就像用Button一樣使用,它的屬性都寫到代碼中了! 
    问题4  看一下它的屬性,在屬性中改
    问题5 設定mschart的數據綁定為nothing  
    问题6 沒搞明白你的意思