Dim savecn As New ADODB.Connection
Dim ckpartno As New ADODB.Recordsetsqlstring = "select distinct partname from eng_ppll_D where partname<>'' 
   Set ckpartno = savecn.Execute(sqlstring)
  If ckpartno.EOF <> True Then
             sqlstring = ""
             Do While ckpartno.EOF <> True
               sqlstring = sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
             ckpartno.MoveNext
             Loop
              MsgBox Detail.FormattedTextRC(i, 1) & "在系統中有其他的名稱,分別為" & Chr(13)                   & Chr(10) & sqlstring & "你需要重新建立編號!"
  End If
  ckpartno.Close
       
      End If
     Next
    End If

解决方案 »

  1.   

    Dim savecn As New ADODB.Connection
    Dim ckpartno As New ADODB.Recordsetsqlstring = "select distinct partname from eng_ppll_D where partname<>'' 
       Set ckpartno = savecn.Execute(sqlstring)
      If ckpartno.EOF <> True Then
                 sqlstring = ""
                 Do While ckpartno.EOF <> True
                   sqlstring = sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
                 ckpartno.MoveNext
                 Loop
                  MsgBox Detail.FormattedTextRC(i, 1) & "在系統中有其他的名稱,分別為" & Chr(13)                   & Chr(10) & sqlstring & "你需要重新建立編號!"
      End If
      ckpartno.Close最主要的是Do While ckpartno.EOF <>tRUE
       SQLSTring=sqlstring&ckpartno.Fields(0).value&CHAR(13)&CHR(10)
       ckpartno.MoveNext
              Loop
    這個地方如何寫
      

  2.   

    while(ckpartno.EOF != tRUE)
                {
                    SQLSTring = String.Format("sqlstring{0}{1}{2}",ckpartno.Fields(0).value,CHAR(13),CHR(10));
                    ckpartno.MoveNext();
                }
    大体上这么写就可以了
      

  3.   

    Connection objConn = new Connection(strConnStr);
    objConn.Open();string strSqlStr = "select distinct partname from eng_ppll_D where partname<>";DataReader objDr = new DataReader();
    objDr.selectCommand = new Command(strSqlStr, objConn);if (objDr.HasRow)
    {
        while (objDr.Read())
        {
            //等等。
        }
    }
    哈哈哈~随便谢谢。
      

  4.   

    第一:movenext C#是没有的!
    第二:妳們有沒有看到sqlstring(1) = "select distinct partname from eng_ppll_D where partname<>'' 
                sqlstring (2)= sqlstring & ckpartno.Fields(0).Value & Chr(13) & Chr(10)
      (2)是在(1)的基礎上查詢的嗎?
       我指導(知道)可以用嵌套子查詢實現﹐把兩個sqlstring加起來﹐用myread.nextresult
      就可以實現﹐但因為中間還有一個整型變量要根据第一條語句來控制﹐所以只能分開