如题，如能解决，本人愿付费。

[此贴子已经被作者于2019-11-24 19:16编辑过]

没人理你了吧，哈哈。来生意了啊
串口那一端是什么设备？
你说的太笼统。
把串口设备数据说明有的话发上来看一下

好的，我来发 ,就是这个表，格式是ACCESS数据库，数据库的格式无所谓，我可以转换成VFP临时表，表每隔10秒更新一次，每次更新的数据都要通过485/232的通信方式传到智能物流网智能机，至于通信协议按照常规方式

[此贴子已经被作者于2019-11-24 22:46编辑过]

我在网上找了一个接受串口数据的例子，但是我是要发出到串口通信，例子如下：

明天帮你看看，主要是发送过去，机器给什么返回值，没有说明吗？

关于串口发送数据，我做了如下程序，请师傅们指点下：
thisform.LockScreen=.t.
nhandle=Sqlstringconnect("Driver={Microsoft Access Driver (*.mdb)}; Dbq=\\Jls4\ENRAF\DATA\tankdatart;Pwd=")
        IF  nhandle<=0
                   MESSAGEBOX("数据库连接失败！！！",16,  '错误信息')
                   RETURN
        ELSE    &&取数据成功
                Ac=SQLEXEC(nhandle,"Select tankname,localtime,displacerlevel,temperature From tankdata ","T_cs")
              
                  IF  Ac<0
                               MESSAGEBOX("读取数据错误！",16,  '错误信息')
                               RETURN
                  ELSE
                       SELECT  ALLTRIM(tankname) tankname,TTOC(localtime) localtime ,ALLTRIM(STR(displacerlevel)) displacerlevel,ALLTRIM(STR(ROUND(temperature,1))) temperature  FROM t_cs INTO CURSOR t_cs1
                       SELECT t_cs1
                       cmsg=""
                       SCAN     &&从第一条记录到最后一条记录
                          FOR ii=1 TO 4   &&从第一个字段到最后一个字段
                               x=Evaluate(FIELD(ii)) &&要发送的数据
                               z=""
                               FOR i=1 TO LENc(x)
                                 y=ALLTRIM(STR(ASC(SUBSTRc(x,i,1))))
                                 z=z+CHR(13)+CHR(10)+y
                                 
                               eNDFOR
                               cmsg=cmsg+z
                          ENDFOR   &&最后一个字段
                       ENDSCAN     &&循环到最后一条记录结束  
                       
                           
                  ENDIF
                 = SQLDISCONNECT(nhandle)   &&关闭连接
                 Set Library To e:\应急数据\myFll
                 hCom1=ComOpen(4,"2400,S,8,1")&&这里是串口的参数，比如9600等
                 If hCom1== ""
                        MessageBox("无法打开串口com1!")
                        Return
                 EndIf
                 ComWrite(hCom1,cMsg) &&向串口输出
                 ComClose(hCom1)&&关闭串口
                 Set Library To
        ENDIF
   
thisform.refresh   
thisform.LockScreen=.f.        

有明显的错误，你再仔细看我给我的代码吧

老师，我和您学习一下，
SELECT  ALLTRIM(tankname) tankname,TTOC(localtime) localtime ,ALLTRIM(STR(displacerlevel)) displacerlevel,ALLTRIM(STR(ROUND(temperature,1))) temperature  FROM t_cs INTO CURSOR t_cs1
这是什么意思呢？

cmsg=cmsg+z
你的设备，不可能直接可以接收有回车和换行符的字符型 的，你没仔细看我给你的代码

上午让你自评代码水平，你没有回答我，看来我可能错了，写代码写的太单调了，你最后几句复制了我的代码，但是兄弟，你缺少了关键的，第一步要测试CHR是否可以，不行再拿 第二步方案，而你只是复制了我最后的发送代码，忽略了我给你的数组那一部分的代码，自评分，不及格，兄弟，再仔细看，实在不行看看帮助！