농부지기

☞   

//Click 한 자료를 ClipBoard 로 카피
If Row > 0 and dwo.type = "column"  and Not(string(dwo.name) = 'datawindow' ) Then
       If Not IsNull(dwo.Primary[row]) Then ::Clipboard(String(dwo.Primary[row]))
End If

말 그대로 선택한 Column의 데이타를 Clipboard에 담는 Script 입니다. (Click! Event에서 사용하시면 되겠죠..)

☞   

합계칼럼을 일일이 손으로 만들고 있길래 ..

쉽게 합계 칼럼을 일괄 자동생성하는 법을 알려 줬지요..

(무지 좋아 하더군요...)

혹시 모르시는 분들을 위해.. 조금이라도 편하시라고.. 올려봅니다

1)dw의 숫자로 된 칼럼이 여러개 주욱 옆으로 있다면...

아래 그림과 같이 숫자칼럼들만 마우스로 멀티 선택합니다..

(과목수, 수강료총액, 차감총액, 실제 수강료합...)

2) 툴바에서 Sum을 선택하면 summary 칸에 합계 컴퓨티드 칼럼이 주르륵 자동 생성됩니다.

(리포트 만들거나 할때 숫자칼럼 많은데 합계 생성하려면 힘들고 귀찮죠... 이럴때 유용하겠죠..)

3) 그런데 summary 밴드가 아닌 footer 에 만들고 싶은데 거긴 자동 생성 안되네요..

tabular 나 freeform dw는 그냥 마우스로 드래그해서 밴드를 옮기면 되지만

그리드는 밴드 이동이 안되는 군요... 이론..

그럼 저장하고 나가서 해당 dw를 마우스 우클릭 한 다음.. Edit Source 를 선택합니다.

(파빌 7 이하는 edit source가 없군요.. 그럼 export, import 하면 되겠죠..)

4) source에서  band=summary 를  footer 로 바꾸고 저장합니다..

5) 아래 그림 처럼 summary 에서 footer로 합계칼럼이 생성되었습니다.... 파빌은 역시 짱입니다..

☞  

☞   현재Row와 이전row 값을 비교 후 sum

1. summary 에 computed field 를 만들고
2. sum( if ( pum[-1] = pum[0] , 0 , value ) for all )
 

☞   

순순하게 변경은 불가능
전부 visible = false하시고
순서대로 visible을 true 하시면됩니다.

☞   

1. BackGroundColor 변경  : dw_d1.Modify("컬럼명.Background.Color = '16777215'") //rgb(255,255,255)'")

2. lable 의   Text  변경 : dw_d1.Modify("title_game_header.Text = '원하는 값'")

3. 컬럼 type length 변경 : dw_d1.Modify("컬럼명.Edit.Limit = 5")

4. 컬럼 Visible     처리 : dw_d1.Modify("컬럼명.Visible = true")

5. 컬럼 bold 굵게 설정   : dw_d1.Modify ("컬럼명.font.Weight=700") ;   //700은 굵게,   400은 보통

6. 컬럼 Y 좌료    설정   : dw_d1.Modify("컬럼명.Ya = 500")

7. 컬럼 X 좌료    설정   : dw_d1.Modify("컬럼명.X = 500")

8. 컬럼 높이      설정   : dw_d1.Modify ("컬럼명.Height = 80")

9. This.SelectText(1, len(GetText() )

☞  

1. dw안에 컬럼 개수          : ll_col_cnt = Integer(dw_d1.Describe("datawindow.column.count"))

2. 컬럼 index 로 컬럼명 찾기 : ls_col_name = Upper(dw_d1.Describe ( "#"+String ( li_index ) + ".Name" ))

3. 컬럼 type 알아내기        : ls_type = dw_d1.Describe("컬럼명.ColType");

4. 컬럼 tag 값 얻기          : ls_tag  = dw_d1.Describe ( "#컬럼명.Tag" )

5. 컬럼 X 좌표 값 얻기       : X = Integer(dw_d1.Describe ( "컬럼명.X" ))

6. 컬럼 Y 좌표 값 얻기       : Y = Integer(dw_d1.Describe ( "컬럼명.Y" ))

☞  

컬럼 순서 알아 내기 : dw_d1.Object.DataWindows.Table.GridColumns

1. text lable에 값을 두 줄로 만들 기 : 한글~r한글 : 즉 ~r  를 삽입
2. 두 번째 방법으로 : text입력란에서 Ctrl + Enter를 치면 밑으로 내려감

1. EditMast.Mask 변경하기
   dw_d1.Object.part_rope_cnt.EditMask.Mask = "###";
   dw_d1.Object.part_rope_cnt.EditMask.Mask = "##.000";

2. Format 변경하기
   dw_d1.Object.part_rope_cnt_1.format = '##.000'
   dw_d1.Modify("part_rope_cnt_.format='##.000'");   //문자값은  Modify내부에  single quote 를 찍어야 됨
 
3. 컬럼 height 변경하기
   dw_d1.Modify ("part_cd.Height         = 80")

1. tabOrder 속성 변경
   dw_d1.SetTabOrder("part_rope_cnt", 20)

1. Detail band Height 조정하기
   dw_d1.SetDetailHeight (1, 99, 102)

해당 데이터윈도우의 Scrollvertical() 이벤트에 아래와 같이 스크립트를 기술해 주시면 됩니다.

===================================================================================

String ls_first, ls_last

String ls_page, ls_pagecount

// 각 화면의 첫번째 Row의 번호를 얻는다.

ls_first = dw_1.Object.Datawindow.FirstRowOnPage

// 각 화면의 마지막 Row의 번호를 얻는다.

ls_last  = dw_1.Object.Datawindow.LastRowOnPage

dw_1.Title = "Rows " + ls_first + " To " + ls_last

ls_page = dw_1.Describe("Evaluate('Page()'," + ls_last + ")")

// 전체 Page수를 얻는다.

ls_pagecount = dw_1.Describe("Evaluate('PageCount()'," + ls_last + ")")

st_page.text = "총 " + ls_pagecount + " 페이지중 " + ls_page + " 페이지"

dw_1.object.Data[row, 컬럼번호]

dw_1.object.컬럼.Primary.Current[row]

dw_1.object.컬럼.Primary[row]

그외....

해당 데이터윈도우 버퍼의 데이터를 모두 받는 건?

dw_1.object.data

두번째 행의 모든 값을 받는 건?

dw_1.object.data[2]

1행의 첫컬럼부터 2행의 두번째 컬럼까지 받는 건?

dw_1.object.data[1,1, 2, 2]

selectrow()함수를 이용해서 선택된 행을 모두 갖고 오는 건?

dw_1.object.Data.Selected

모든 행의 특정컬럼 값만 갖고 오는 거?

dw_1.object.컬럼
http://cafe.naver.com/pentaeduclub.cafe

DataWindow에서 값을 입력하다보면 'DataWinodw Error'라는 Title의 Message Box가 나타남
영어로 쓰여져있고 일반 End User들에게는 생소한 영문이라서 눈에 거슬렸는데
이 title을 원하시는 내용으로 변경하는 방법이 있다.
DataWindow attribute에는 Message.Title이란 것이 있다.
이부분을 수정하면 된다.
  dw_1.Modify("DataWindow.Mesage.Title = '입력오류'")
 

- Original : 초기 조회 값
IF ( column_name <> column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))