| Profilo di Wang我的幸福生活FotoBlogElenchi | Guida |
|
|
30 aprile IE problem朋友如果你的 IE 速度启动速度慢,就停下来看看我这儿吧,因为我为它付出了2个小时的代价,在IE --> Internet option -> advanced ---> security ---> check for publisher's certificate revocation 看看上边是不是有个对钩,把对钩去掉,关掉当前窗口看看你的IE 启动速度吧
Hi,buddy,please stop and see my tip,if you feel your IE too slow speed to startup(14 seconds,my god), because I spent 2 hours on in,just my experience,On IE --> Internet option -> advanced ---> security ---> check for publisher's certificate revocation ,see on it ,it had with a right tick? take it off ,apply it ,close your current window, enjoy your work,you will see it It is worked~ 06 ottobre MSN不能登陆解决方法,已测试MSN不能登陆解决方法,已测试
用写字板打开 %systemroot%\system32\drivers\etc\hosts
notepad %systemroot%\system32\drivers\etc\hosts 在最后添加
65.54.239.80 messenger.hotmail.com 65.54.239.80 dp.msnmessenger.akadns.net 保存。重启MSN。
已测试,可用。
02 giugno MySQL 精选06 aprile 一定要写工作日志1。一定要写工作日志,每天做了什么系统化管理。
2。写程序一定要写注释,否则几天之后再回来看根本想不起来了,不年轻了阿。
3。而且有些事情等人家说出来,就会很没趣,也不要争吵没意思,自己去找自身的问题,完善自身。 04 aprile ABAP中如何实现强制分页/如何设置打印机和打印格式?今天我突然想起来一个方法,我上面已经提到,我用X_90_120可以完整地将报表打印出来,我何不用X_90_120的ACTION来设置X_65_132呢,于是我就测试了一下,居然OK。X_90_120的ACTION的Print init.代码如下:
# CNSAPWIN X_90_120 # SAPWIN indicatior makes it possible to send via berkeley protocol \e%SAPWIN% # change WinCharSet to 134 \eW134; # set font name(SimSun) \eFSimSun; # set orientation(PORTRAIT) \ePP # set font size(8.0points) \eS160X # set vertical spacing(8.7LPI) \el8.7; # set horizontal spacing(18.0CPI) \ec18.0; # set top/left margin(1.0cm/1.5cm) \eMT567; \eML850; 大家可以比对这段代码与X_65_132的不同,从中找到自己需要改动的部分 Terry Sun 03 aprile 想想 今日无大事 明天开始写报告明天又要开始写报告了,好久没写新的报告了,手有点生,现整理一些资料
ZLSDRP47 SUM Discount with Billing
Customer NO. KNA1-KUNNR
Customer Name KNA1-NAME1
County KNA1-MCOD1
Actual Rate KNVV-PLTYP
VALUE VBRK-NETWR
然后统计十二个月的列出 XML操作改的差不多了的程序Private Sub WriteQuote(ByVal writer As XmlWriter, ByVal symbol As String, ByVal price As Double, ByVal change As Double, ByVal volume As Long) seed = seed + 1
writer.WriteStartElement("root") writer.WriteStartElement("CPU" & seed) writer.WriteAttributeString("Symbol", symbol) writer.WriteElementString("Used_CPU", XmlConvert.ToString(price)) writer.WriteElementString("Sys_CPU", XmlConvert.ToString(change)) writer.WriteElementString("Idle_CPU", XmlConvert.ToString(volume)) 'writer.WriteEndElement() End Sub 'WriteQuote Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isoStore = IsolatedStorageFile.GetStore(IsolatedStorageScope.User Or IsolatedStorageScope.Assembly, Nothing, Nothing) '删除临时文件 If System.IO.File.Exists("New.xml") Then '打开并写入 xml Dim file1 As New FileStream("New.xml", FileMode.Append, FileAccess.Write) Dim writer As New XmlTextWriter(file1, New UTF8Encoding) writer.Formatting = Formatting.Indented WriteQuote(writer, "DEV", 1%, 1%, 100%) writer.Close() file1.Close() Else '打开并写入 xml (判断到底是覆盖还是追加) Dim file1 As New FileStream("New.xml", FileMode.OpenOrCreate, FileAccess.ReadWrite) Dim writer As New XmlTextWriter(file1, New UTF8Encoding) writer.Formatting = Formatting.Indented WriteQuote(writer, "DEV", 1%, 1%, 100%) writer.Close() file1.Close() End If Dim filetmp As New System.IO.StreamWriter("New1.xml", True) '创建临时文件 Dim file As New System.IO.StreamReader("New.xml") '搜索删除 </root><root> 的部分 Dim oneLine As String '搜索删除 </root><root> 的部分 oneLine = file.ReadLine() If oneLine <> "</root><root>" Then filetmp.WriteLine(oneLine) End If
While (oneLine <> "") Console.WriteLine(oneLine) oneLine = file.ReadLine() If oneLine <> "</root><root>" Then filetmp.WriteLine(oneLine) End If
End While filetmp.Close() file.Close() 'isoStore.DeleteFile("New.xml") '删除文件 new.xml 改临时文件为new.xml
'用 isoStore 的方法还是不行不知道为什么
Dim f As File f.Delete("New.xml") f.Move("New1.xml", "New.xml") 'isoStore.DeleteFile("New1.xml") End Sub End Class
在此要说一下,覃远芳你的例子没能帮上我,这是我自己改得差不多的例子 XML简单的例子Imports System
Imports System.IO Imports System.Xml Imports Microsoft.VisualBasic.Strings Imports System.Xml.Schema Imports System.Text Public Class Form1 Inherits System.Windows.Forms.Form Shared Sub WriteQuote(ByVal writer As XmlWriter, ByVal symbol As String, ByVal price As Double, ByVal change As Double, ByVal volume As Long)
writer.WriteStartElement("CPU") writer.WriteAttributeString("Symbol", symbol) writer.WriteElementString("Used_CPU", XmlConvert.ToString(price)) writer.WriteElementString("Sys_CPU", XmlConvert.ToString(change)) writer.WriteElementString("Idle_CPU", XmlConvert.ToString(volume)) writer.WriteEndElement() End Sub 'WriteQuote Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim file As New FileStream("New.xml", FileMode.Create, FileAccess.ReadWrite)
Dim writer As New XmlTextWriter(file, New UTF8Encoding) writer.Formatting = Formatting.Indented WriteQuote(writer, "DEV", 1%, 1%, 100%) writer.Close() End Sub
01 aprile SAPmonitor 1.0 发现一个重大错误我估计主要是因为我用了 Public cs As String,在程序运行 20 分钟之后会自动出现,程序不可获得的错误错误信息如下:
未处理的“System.ComponentModel.Win32Exception”类型的异常出现在 system.windows.forms.dll 中。
其他信息: Error creating window handle.
Unhandled Exception: System.ComponentModel.Win32Exception: Error creating window handle. at System.Windows.Forms.NativeWindow.CreateHandle(CreateParams cp) at System.Windows.Forms.Control.CreateHandle() at System.Windows.Forms.Control.get_Handle() at System.Windows.Forms.Control.CreateGraphicsInternal() at System.Windows.Forms.ThreadExceptionDialog..ctor(Exception t) at System.Windows.Forms.ThreadExceptionDialog..ctor(Exception t) at System.Windows.Forms.ThreadContext.OnThreadException(Exception t) at System.Windows.Forms.Application.OnThreadException(Exception t) at System.Windows.Forms.Control.WndProcException(Exception e) at System.Windows.Forms.ControlNativeWindow.OnThreadException(Exception e) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) at System.Windows.Forms.NativeWindow.DefWndProc(Message& m) at System.Windows.Forms.NativeWindow.WndProc(Message& m) at Sunisoft.IrisSkin.x6c2a56e5aa01fafb.WndProc(Message& m) at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) at System.Windows.Forms.ComponentManager.System.Windows.Forms.UnsafeNativeMethods+IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) at System.Windows.Forms.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) at System.Windows.Forms.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.Run(Form mainForm) at CPUSAPUSAGE.Main.Main() in E:\Documents and Settings\wang.y.SB-FURNITURE\Desktop\SAPRFC\SAPRFC\CPUSAPUSAGE\CPUSAPUSAGE\Main.vb:line 1程序“[1140] SAPmonitor.exe”已退出,返回值为 0 (0x0)。 所以我想把临时数据以及连接字符串存入 xml文件,另外说一句因为我用的是proxy所以我没用一次就要关闭一次链接,这样可以降低服务器资源消耗 如何写入 xml写xml文档的方法:
xmlwriter类包含了写xml文档所需的方法和属性,它是xmltextwriter类和xmlnodewriter类的基类。该类包含了writenode、writestring、writeattributes、writestartelement以及writeendelement等一系列写xml文档的方法,其中有些方法是成对出现的。比如你要写入一个元素,你首先得调用writestartelement方法,接着写入实际内容,最后是调用writeendelement方法以表示结束。该类还包含了writestate、xmllang和xmlspace等属性,其中writestate属性表明了写的状态。因为xmlwriter类包含了很多写xml文档的方法,所以这里只是介绍最主要的几种。下面我们通过其子类xmltextwriter类来说明如何写xml文档。 首先,我们要创建一个xmltextwriter类的实例对象。该类的构造函数xmltextwriter有三种重载形式,其参数分别为一个字符串、一个流对象和一个textwriter对象。这里我们运用字符串的参数形式,该字符串就指明了所要创建的xml文件的位置,方法如下: xmltextwriter textWriter = New XmlTextWriter("C:\\myXmFile.xml", null);
在创建完对象后,我们调用writerstartdocument方法开始写xml文档,在完成写工作后,就调用writeenddocument结束写过程并调用close方法将它关闭。在写的过程中,我们可以调用writecomment方法来添加说明,通过调用writestring方法来添加一个字符串,通过调用writestartelement和writeendelement方法对来添加一个元素,通过调用writestartattribute和writeendattribute方法对来添加一个属性。我们还可以通过调用writenode方法来添加整一个节点,其它的写的方法还包括writeprocessinginstruction和writedoctype等等。下面的实例就是介绍如何具体运用这些方法来完成xml文档的写工作的。 using System; namespace WriteXML // 开始写过程,调用WriteStartDocument方法 // 写入说明 // 写入一个元素 // 再写入一个元素 // 写入字符 // 写文档结束,调用WriteEndDocument方法 // 关闭textWriter
这是转网上的C#版本,我会把它改成 VB BTW:现在用C#的人太多了,我正在考虑有没有必要学C#
30 marzo SAP Omit-Monitor 1.0 完工啦!终于写完了SAP Omit-Monitor 1.0,今天上班心情还好,这个SAP monitor主要是监视CPU 使用量内存吞吐量数据,为什么写这个东西主要是跟Derek赌气,忘了介绍了此人是一个澳籍华人广东人不会说普通话,我们一般沟通都用英语,不知道为什么总感觉他处处和我作对,这次是因为他说服务器刷新时间只能设置为10秒(interval),我不信我偏要证实一下,所以写了这个东西,SAP 也是程序堆起来的为什么不能改参数,胡说八道,我只要重新调用 RFC函数,现在我可以让服务器每一秒刷新一次,不过这样占用服务器资源所以现在我却生设置3秒刷新一次,嘿嘿,也没有必要用这个东西讽刺他,而且这个东西还应该丰富一些功能,恩,简单的东西越写越复杂了,还有觉得自己应该耐下心来做些事情,这点我确实应该学习泰国人,他们不论做什么事情都很耐心,你要问他们什么事情,不管多忙,他们也会非常耐心的给你讲解,创造和实现自身价值。
在此感谢闫卿、覃远芳没有他们的指导我很多.net的问题还是得不到解决~ 29 marzo How Can I link MSEG with VBAK?KDAUF-->SD DOc number
KDPOS--> SD item number CHARG--> Batch no MATNR --> Material No.
Certainly,that you still can use majhr and following for refenence.
SELECT msk~matnr msk~vbeln msk~kalab msk~charg msk~posnr mbe~verpr vbu~gbsta
INTO CORRESPONDING FIELDS OF TABLE w_show FROM mska AS msk INNER JOIN mbew AS mbe ON mbe~matnr = msk~matnr
INNER JOIN vbak AS vba ON vba~vbeln = msk~vbeln INNER JOIN vbup AS vbu ON msk~vbeln = vbu~vbeln AND msk~posnr = vbu~posnr FOR ALL ENTRIES IN w_print
WHERE msk~vbeln = w_print-vbeln. SORT w_show BY vbeln matnr.
CHECK sy-subrc EQ 0. ———————————— loop at w_show
SELECT SINGLE budat INTO w_budat "posting date FROM mseg AS msg INNER JOIN mkpf AS mkf ON msg~mblnr = mkf~mblnr WHERE kdauf = w_show-vbeln AND kdpos = w_show-posnr AND matnr = w_show-matnr AND charg = w_show-charg. ------------------------------ endloop. 23 marzo SAP 知识ZLMMRP05 MB51 可以 检查物料运作 --movement type 261 262 261 是production issued goods 262 是cancelled issued goods MB52 可以 检查物品现有值是多少 17 marzo 怎样编写在单击窗体最小化按钮时激发一事件?Private Sub Form_Resize() if Me.WindowState=1 then ''''' end if End Sub 16 marzo ABAP 日积月累今天学的东西比较杂
1.SP02 看 spool list
2.连接字符要用concatenate
3.看背景运行程序 sm37
4 vb.net 今天学了检索 ini文件函数
5 loop at t_print.
if sy-subrc = 0.
....
modify t_print. 24 gennaio 从昨天起开始作 layoutset其实对 layoutset 也不是很了解,感觉就像个大图片。只要内表正确,一切也就ok了。
VBPA-VBELN = LIPS-VGBEL "SALE DOC.
LIPS-VBELN = LIKP-VBELN " DELIVERY
LIPS-VRKME SALES UNIT
LIPS-ARKTX PRODUCT DESCRIPTION
还有,在国外学习和工作关键在我们自己,没有人去督促我们,这更需要我们自己努力才能得到
更多的收获。
|
|
|